home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / cc68k.arc / SIEVE.ARC / SIEVE.LIS < prev    next >
File List  |  1989-11-05  |  1KB  |  50 lines
  1.      1    #define true 1
  2.      2    #define false 0
  3.      3    #define size 8190
  4.      4    #define sizepl 8191
  5.      5    
  6.      6    main() {
  7.      7        char    flags[sizepl];
  8.      8    
  9.      9        int i,prime,k,count,iter;
  10.     10        printf("10 iterations\n");
  11.     11        for(iter=1;iter<= 10;iter++){
  12.     12            count=0;
  13.     13            for(i = 0; i<=size;i++)
  14.     14                flags[i]=true;
  15.     15            for(i=0;i <= size; i++){
  16.     16                if(flags[i]){
  17.     17                    prime = i+i+3;
  18.     18                    k=i+prime;
  19.     19                        while(k<=size){
  20.     20                            flags[k] = false;
  21.     21                            k += prime;
  22.     22                            }
  23.     23                        count = count+1;
  24.     24                    }
  25.     25                }
  26.     26            }
  27.     27        printf("\n%d primes\n",count);
  28.     28        }
  29.  
  30.  
  31. *** local symbol table ***
  32.  
  33. flags      =00e001 Auto        Array of Char
  34. i          =00dffc Auto        Long
  35. prime      =00dff8 Auto        Long
  36. k          =00dff4 Auto        Long
  37. count      =00dff0 Auto        Long
  38. iter       =00dfec Auto        Long
  39.  
  40.  
  41.  
  42.  
  43.  *** global scope symbol table ***
  44.  
  45. main       =000000 Global      Function returning Long
  46. printf     =000000 External    Function returning Long
  47.  
  48.  *** structures and unions ***
  49.  
  50.